home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 076-100 / disk_091 / adlrun / adlmiscr.c < prev    next >
C/C++ Source or Header  |  1992-05-06  |  1KB  |  58 lines
  1. #include <stdio.h>
  2.  
  3. #include "adltypes.h"
  4. #include "adlprog.h"
  5. #include "builtins.h"
  6. #include "vstring.h"
  7. #include "adlrun.h"
  8.  
  9.  
  10. varconts( n )
  11. int16    n;
  12. {
  13.     switch( n ) {
  14.     case _VERB_G : RETVAL = Verb;        break;
  15.     case _DOBJ_G : RETVAL = Dobj[ 0 ];    break;
  16.     case _IOBJ_G : RETVAL = Iobj;        break;
  17.     case _PREP_G : RETVAL = Prep;        break;
  18.     case _CONJ_G : RETVAL = Conj[ 0 ];    break;
  19.     case _NUMD_G : RETVAL = NumDobj;    break;
  20.     default      :
  21. #if DEBUG
  22.         if( (n < 0) || (n > sp) )
  23.         error( 13 );
  24. #endif
  25.         RETVAL = stack[ n ];
  26.     }
  27. }
  28.  
  29.  
  30. setg()
  31. {
  32.     assertargs( "$setg", 2 );
  33.     switch( ARG( 1 ) ) {
  34.     case _VERB_G : Verb = ARG( 2 );        break;
  35.     case _IOBJ_G : Iobj = ARG( 2 );        break;
  36.     case _DOBJ_G : Dobj[ 0 ] = ARG( 2 );     break;
  37.     case _PREP_G : Prep = ARG( 2 );        break;
  38.     case _CONJ_G : Conj[ 0 ] = ARG( 2 );    break;
  39.     case _NUMD_G : NumDobj = ARG( 2 );    break;
  40.     default     :
  41.         if( (ARG( 1 ) < 0)||(ARG( 1 ) > sp) )
  42.         error( 14 );
  43.         stack[ ARG( 1 ) ] = ARG( 2 );
  44.     }
  45.     RETVAL = ARG( 2 );
  46. }
  47.  
  48.  
  49. saystr()
  50. {
  51.   int16 i;
  52.  
  53.   for( i = 1; i < RETVAL; i++ )
  54.     sayer( virtstr( ARG( i ) ) );
  55. }
  56.  
  57. /*** EOF adlmiscr.c ***/
  58.